www.gusucode.com > 云网互动影视系统(12套模版和资源联盟) 6.2 > 云网互动影视系统(12套模版和资源联盟) 6.2.4/免费版/Admin/Dialog/SelectClass_Ajax.asp
<!--#include file="../../Conn.asp" --> <!--#include file="../YWNT_TMS_inc/YWNT_TMS_Function.asp" --> <% Response.Buffer = True Response.Expires = -1 Response.ExpiresAbsolute = Now() - 1 Response.Expires = 0 Response.CacheControl = "no-cache" Response.Charset="GB2312" Server.ScriptTimeOut=999999999 Dim Conn Dim ParentId,Str_Sql,Rs_Class,Str_ClassInfo ParentId = NoSqlHack(Trim(Request.QueryString("ParentId"))) If ParentId = "" Then ParentId = 0 End If On Error Resume Next Str_Sql = "Select ID,ClassID,ClassName,(Select Count(id) from YWNT_TMS_MovieClass where ClassID=a.ID) as HasSub from YWNT_TMS_MovieClass a where ClassID="&ParentId&" order by ClassWith asc,id asc" Set Rs_Class = Conn.Execute(Str_Sql) Str_ClassInfo="" While Not Rs_Class.Eof If Rs_Class("HasSub")>0 Then Str_ClassInfo=Str_ClassInfo&"<div><img src=""../images/+.gif"" alt=""点击展开子栏目"" width=""15"" height=""15"" border=""0"" class=""LableItem"" onClick=""javascript:SwitchImg(this,'"&Rs_Class("ID")&"');"" /><span id="""&Rs_Class("ID")&""" onDblClick=""SubmitLable(this);"" class=""LableItem"" onClick=""SelectLable(this)"">"&Rs_Class("ClassName")&"</span>"&VbNewLine&_ "<div id=""Parent"&Rs_Class("ID")&""" class=""SubItem"" HasSub=""True"" style=""display:none;""></div>"&VbNewLine&_ "</div>"&VbNewLine Else Str_ClassInfo=Str_ClassInfo&"<div><img src=""../images/-.gif"" alt=""没有子栏目"" width=""15"" height=""15"" border=""0"" class=""LableItem"" /><span id="""&Rs_Class("ID")&""" onDblClick=""SubmitLable(this);"" class=""LableItem"" onClick=""SelectLable(this)"">"&Rs_Class("ClassName")&"</span>"&VbNewLine&_ "</div>"&VbNewLine End If Rs_Class.MoveNext Wend If Err Then Str_ClassInfo="Fail|||"&ParentId&"|||" Else Str_ClassInfo="Succee|||"&ParentId&"|||"&Str_ClassInfo End If Response.Write(Str_ClassInfo) %>